home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Extras
/
D51_NUSource
/
Source
/
DOpusFuncs
/
WinCopy.s
< prev
next >
Wrap
Text File
|
1995-09-24
|
949b
|
25 lines
***************************************************************************************
* WinCopy subroutine for DOpusFuncs.s *
***************************************************************************************
WinCopy
Tst.l WinCopy_S(a5)
Bne.s WinCopy_DoIt
RTS
WinCopy_DoIt
Sub.l d0,d0 Abort if there isn't a source lister.
Bsr GetSourceHandle Get the source lister's handle -> Source_Handle
Moveq #1,d0 Open new dest if one doesn't exist.
Bsr GetDestHandle Get the dest lister's handle -> Dest_Handle
;-------------------------------------------------------------------------------------;
Lea Source_Handle(a5),a0 -.
Lea PathBuffer1(a5),a1 |_ Source path
Move.w #PathBuffer1Len,d7 | to PathBuffer1
Bsr GetListerPath -'
Sub.l d0,d0 Don't force into current path buffer.
Lea Dest_Handle(a5),a0 -.
Lea PathBuffer1(a5),a1 |- Read old Source path -> Destination.
Bra ReadListerPath -'
;;;;;;; RTS for us.